home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / arrays / arrseq / arrseq.bas next >
Encoding:
BASIC Source File  |  1995-09-29  |  814 b   |  14 lines
  1. Option Explicit
  2.  
  3. Declare Function Sendmessage& Lib "User" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam As Long)
  4. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  5. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  6.  
  7.  
  8. Global Const WM_LBUTTONUP = &H202
  9. Global Const WM_SYSCOMMAND = &H112
  10. Global Const MOUSE_MOVE = &HF012
  11. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  12. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  13.  
  14.